home *** CD-ROM | disk | FTP | other *** search
/ Commodore Disk User Volume 4 #11 / Commodore_Disk_User_Vol.4_11_1991_-.d64 / sprt priorities (.txt) < prev    next >
Commodore BASIC  |  2022-10-26  |  2KB  |  68 lines
  1. 0 poke3280,14:poke46,14:poke53281,6:print"[147]   *** - loading/checking data - ***"
  2. 1 dimea(20):c1=0:dl=100:in=1:le=51:q=8:ad=52832:deffna(z)=dl+(x*in)
  3. 2 forx=0tole:cs=0:forc=0toq-1:readd:cs=cs+d
  4. 3 ifd<256then6
  5. 4 ifc=q-1thenprint"[147]  data quantity error in line:-"fna(z):stop
  6. 5 ea(c1)=fna(z):c1=c1+1
  7. 6 pokead+x*q+c,d:next
  8. 7 readd:ifd<>csthenea(c1)=fna(z):c1=c1+1
  9. 8 next
  10. 9 x=c1:ifc1=0thenprint"[147]  data is error free":goto12
  11. 10 print"[147]data error list"
  12. 11 forc=0tox:printea(c)"*";:next
  13. 12 rem ***  to call from within basic program - use sys52832
  14. 13 rem ***  to call from within machin language programs - use jsr $ce60
  15. 14 end
  16. 100 data32,168,206,32,178,206,32,200,1054
  17. 101 data206,32,91,207,169,29,160,208,1102
  18. 102 data32,149,206,32,127,207,169,23,945
  19. 103 data160,208,32,149,206,32,127,207,1121
  20. 104 data169,28,160,208,32,149,206,32,984
  21. 105 data127,207,169,16,160,208,32,149,1068
  22. 106 data206,32,127,207,96,141,128,207,1144
  23. 107 data141,146,207,141,172,207,140,129,1283
  24. 108 data207,140,147,207,140,173,207,96,1317
  25. 109 data160,44,169,0,153,191,207,136,1060
  26. 110 data16,250,162,7,160,15,185,0,795
  27. 111 data208,157,175,207,136,185,0,208,1276
  28. 112 data157,183,207,202,136,16,239,96,1236
  29. 113 data160,0,185,175,207,141,199,207,1274
  30. 114 data185,183,207,141,208,207,185,39,1355
  31. 115 data208,141,217,207,185,248,7,141,1354
  32. 116 data226,207,185,236,207,141,235,207,1644
  33. 117 data162,8,189,191,207,221,190,207,1375
  34. 118 data240,5,144,3,32,0,207,202,833
  35. 119 data208,240,200,192,8,208,203,96,1355
  36. 120 data189,190,207,141,252,207,189,191,1566
  37. 121 data207,157,190,207,173,252,207,157,1550
  38. 122 data191,207,189,199,207,141,252,207,1593
  39. 123 data189,200,207,157,199,207,173,252,1584
  40. 124 data207,157,200,207,189,208,207,141,1516
  41. 125 data252,207,189,209,207,157,208,207,1636
  42. 126 data173,252,207,157,209,207,189,217,1611
  43. 127 data207,141,252,207,189,218,207,157,1578
  44. 128 data217,207,173,252,207,157,218,207,1638
  45. 129 data189,226,207,141,252,207,189,227,1638
  46. 130 data207,157,226,207,173,252,207,157,1586
  47. 131 data227,207,96,160,0,162,0,189,1041
  48. 132 data200,207,153,0,208,200,189,191,1348
  49. 133 data207,153,0,208,189,209,207,157,1330
  50. 134 data39,208,189,218,207,157,248,7,1273
  51. 135 data232,200,192,16,208,225,96,173,1342
  52. 136 data0,16,240,42,201,255,240,38,1032
  53. 137 data160,0,140,252,207,185,227,207,1378
  54. 138 data170,173,0,16,74,202,16,252,903
  55. 139 data144,9,173,252,207,25,244,207,1261
  56. 140 data141,252,207,200,192,8,208,229,1437
  57. 141 data173,252,207,141,0,16,96,0,885
  58. 142 data0,0,0,0,0,0,0,0,0
  59. 143 data0,0,0,0,0,0,0,0,0
  60. 144 data0,0,0,0,0,0,0,0,0
  61. 145 data0,0,0,0,0,0,0,0,0
  62. 146 data0,0,0,0,0,0,0,0,0
  63. 147 data0,0,0,0,0,0,0,0,0
  64. 148 data0,0,0,0,0,0,0,0,0
  65. 149 data0,0,0,0,0,1,2,3,6
  66. 150 data4,5,6,7,1,2,4,8,37
  67. 151 data16,32,64,128,0,0,251,251,742
  68.